home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / Grafik / Paint / Perfectpaint / rexx / general / LoadADPro_Picture.rx < prev    next >
Encoding:
Text File  |  1999-12-03  |  1.1 KB  |  72 lines
  1. /* LoadAdpro Picture*/
  2.  
  3.     options results
  4.     parse ARG Port b
  5.  
  6.     IF ~SHOW('P','ADPro') THEN
  7.         DO
  8.             ADDRESS value Port
  9.         pp_Warn "Can't*locate*ADPro"
  10.       EXIT
  11.         END
  12.  
  13.     ADDRESS value Port
  14.         pp_GetDepth
  15.         a=2**result
  16.  
  17.     pp_DialogInit 250 100 "*Load*ADPro*Picture*" 3
  18.         pp_Cycle 0 80 7 130 16 "Palette" 1 "New*Palette|Current*Palette" 1
  19.         pp_Cycle 1 80 27 130 16 "Dithering" 1 "No|Floyd" 0
  20.         pp_Cycle 2 80 47 130 16 "Colors" 1 "Current*Depth|2|4|8|16|32|64|128|256" 0
  21.     pp_Dialog    
  22.  
  23.     rc=result
  24.     if rc=0 then
  25.         do
  26.             EXIT
  27.         end    
  28.  
  29.     pp_GetDialog 0
  30.     p=result
  31.  
  32.     pp_GetDialog 1
  33.     d=result
  34.  
  35.     pp_GetDialog 2
  36.     c=2**result    
  37.  
  38.         pp_Psave 'ram:t/ppptemp'
  39.  
  40.         IF c=1 THEN
  41.             DO
  42.                 c=a
  43.             END
  44.         ENDIF
  45.         
  46.     ADDRESS 'ADPro'
  47.         ADPRO_TO_FRONT
  48.         AVAIL_MODES_ONLY OFF
  49.         IF p=0 THEN
  50.             DO
  51.                 PSTATUS "UNLOCKED"
  52.             END
  53.             ELSE
  54.             DO
  55.                 PLOAD 'ram:t/ppptemp'
  56.                 PSTATUS "LOCKED"
  57.             END
  58.  
  59.         SFORMAT "IFF"
  60.     SCREEN_TYPE "NONINTERLACED"
  61.         RENDER_TYPE c
  62.         DITHER d
  63.         EXECUTE
  64.         SAVE 'ram:t/pptemp' "IMAGE"
  65.  
  66.     ADDRESS value Port
  67.         pp_ShowScreen
  68.         pp_Load 'ram:t/pptemp'
  69.  
  70.     ADDRESS COMMAND
  71.         'delete >nil: ram:t/pptemp'
  72.         'delete >nil: ram:t/ppptemp'